3 POKE56,56:CLR
5 DV=PEEK(186):IFDV<8THENDV=8
9 GOTO50
10 PRINTTP$
11 PRINTCV$:FORII=0TO15:PRINTCX$:NEXT:PRINTCW$:RETURN
12 POKE214,19:PRINT:PRINT"  [195][210][211][210]-[213][208]/[196][207][215][206][159]-[205]OVE ARROW UP OR DOWN"
13 PRINT" [211][208][193][195][197][159]-[211]ELECT FILE  [193][159]-[212]OGGLE ALL FILES"
14 PRINT"       [210][197][212][213][210][206][159]-[214]IEW/[208]RINT   [208][159]-[208]AGE
15 [153]"  STR$OPEN-STR$IRECTORY    (null)OPEN-(null)EW DISK    (null)OPEN-(null)UIT"
16 [142]
20 [153]""[163]28)"PRINT(null)AGE"P[170]1"PRINTOF"PP[170]1"LIST"
21 [139]P[178]PP[167][129]II[178]P[172]16[170]1[164]J:[137]23
22 [129]II[178]P[172]16[170]1[164](P[170]1)[172]16
23 [151]199,PC%(II):[153][163]13)[201](TD$(II),[195](TD$(II))[171]2)
24 [130]:[142]
25 [129]II[178]17[164]2[169][171]1
26 [151]214,II:[153]:[153][163]9)CL$:[130]
27 [142]
30 [129]II[178]22[164]24:[151]781,II:[158]59903:[130]
31 [151]214,21:[153]:[153]"     (null)(null)ATNLENVALOPEN- NEXT SELECTED RECIPE
32 PRINT" [206][159] - NEXT RECIPE ON MENU   [198]1[159] - [208]RINT
34 [153]"     ATNOPEN - ATNBBREVIATIONS   (null)OPEN - (null)ENU"
35 [142]
40 [129]II[178]22[164]24:[151]781,II:[158]59903:[130]
41 [151]214,20:[153]:[153]"DEF (null)URN YOUR PRINTER ON AND PRESS (null)(null)ATNLENVALDEF!"
42 [153]"   (null)R PRESS (null)DEF TO RETURN TO THE MENU."
43 [142]
50 [151]53281,0:[151]53280,0:[153]"LOADOPEN"
51 [141]660:[143] DISK DRIVE CHECK
52 [158]57812"RECIPES FONT",DV,0:[151]780,0:[151]781,0:[151]782,56:[158]65493
53 [151]53272,31
54 [141]1145
55 [158]57812"SS 1990",DV,0:[151]780,0:[151]781,60:[151]782,3:[158]65493
57 [158]57812"READFILE.O",DV,0:[151]780,0:[151]781,167:[151]782,2:[158]65493
60 [158]57812"PRINT/CAT/DIR",DV,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
65 D[178]0:U[178]0:I[178]0:J[178]0:K[178]0:M[178]0:P[178]0:PP[178]0:Q[178]0:T[178]0:U[178]0:II[178]0
66 DV[178][194](186):[139]DV[179]8[167]DV[178]8
67 Q$[178][199](34)
70 [134] TD$(145),PC%(145)
72 TP$[178]"LOADDEF    (null) (null)CLOSEATNCLOSESTR$CLOSE(null)CLOSE(null)CLOSEATNCLOSE(null)CLOSE  (null) VALCLOSELENCLOSERIGHT$CLOSE(null) VALCLOSE(null)"
73 CV$[178]"   SYSORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
74 CW$[178]"   SYS/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
75 CX$[178]"   SYS(null)                               SYS(null)"
76 CL$[178]"                      ":[137]82
80 [129]Z[178]1[164]J:TD$(Z)[178]"":PC%(Z)[178]0:[130]
81 B[178]0:D[178]0:F[178]0:G[178]0:P[178]0:R[178]0:S[178]0:U[178]0:V[178]0:H[178]0:M[178]0
82 [153]TP$:[141]635
85 [153]"OPEN  RIGHT$NSERT THE DISK WITH THE RECIPE OPENFILES"
90 [153][163]12)"AND PRESS (null)(null)ATNLENVALOPEN."
95 [161]A$:[139]A$[179][177]" "[167]95
100 [153]"OPEN (null)ELECTING ALL RECIPEOPEN FILES ON THIS DISK"
102 I[178]0:[158]49664,"$R.*",DV
103 [139]ST[179][177]64[167][132]3,A,TD$(I),A$:I[178]I[170]1:[158]49667:[137]103
105 TD$(I[171]1)[178][199](0)[170][199](0)[170][199](0)
110 [153]TP$
120 J[178]I[171]1
140 [139]J[178]1[167][153]"OPEN (null)HERE ARE NO RECIPE FILES ON THIS DISK."
145 [139]J[178]1[167][141]605:[141]1215:[137]82
200 PP[178][181](J[173]16)[171](J[173]16[179][177][181](J[173]16))[171]1
210 P[178]0
220 [141]10
225 [141]25:[141]12:[141]20:K[178]1
230 [151]214,K[170]1:[153]:[153][163]10)"PRINTTAN>ON":[151]198,0
235 [161]A$:[139]A$[178]""[167]235
240 [139]A$[179][177]"ON"[167]250
242 [153][163]10)"PRINT  ON"
245 K[178]K[171]1:[139]P[178]PP[167][139]K[179]1[167]K[178]J[171]P[172]16[171]1:[137]230
246 [139]K[179]1[167]K[178]16
247 [137]230
250 [139]A$[179][177]""[167]260
252 [153][163]10)"PRINT  ON"
255 K[178]K[170]1:[139]P[178]PP[167][139]K[177]J[171]P[172]16[171]1[167]K[178]1:[137]230
256 [139]K[177]16[167]K[178]1
257 [137]230
260 [139]A$[179][177]"P"[167]275
265 P[178]P[170]1:[139]P[177]PP[167]P[178]0
267 [137]225
275 [139]A$[179][177]"D"[175]A$[179][177]"STR$"[167]285
280 [158]828,1:[137]515
285 [139]A$[179][177]"Q"[175]A$[179][177]"(null)"[167]300
290 [141]1215:[137]230
300 [139]A$[178][199](13)[167]350
302 [139]A$[178]"N"[176]A$[178]"(null)"[167][141]635:[137]80
305 [139]A$[179][177]"A"[175]A$[179][177]"ATN"[167]330
307 [129]I[178]1[164]J:PC%(I)[178]1[171]PC%(I):[130]
309 [141]20:[137]230
330 [139]A$[178]" "[167]PC%(P[172]16[170]K)[178]1[171]PC%(P[172]16[170]K):[141]20:[137]230
340 [137]230
350 Q[178]0:[129]I[178]1[164]J
352 [139]Q[178]0[167][139]PC%(I)[178]0[167]380
358 [153]"LOADLIST"
360 [151]698,DV:[158]679,TD$(I):PC%(I)[178]0:Q[178]0
362 [141]30:[151]198,0
370 [161]A$:[139]A$[178]""[167]370
372 [139]A$[178]" "[167]380
374 [139]A$[178]"A"[167][158]828,4:[141]1300:[158]831,4:[137]370
376 [139]A$[178]"N"[167]Q[178]1:[137]380
378 [139]A$[178][199](133)[167][141]390
379 [139]A$[178]"M"[167]220
380 [130]:[137]210
390 [159]4,4:[152]4:[160]4:[139]ST[178]0[167]398
392 [158]828,6:[141]40:[151]198,0
394 [161]A$:[139]A$[178]""[167]394
395 [139]A$[178]"M"[167][142]
396 [158]831,6:[137]390
398 [158]49152,0,0,39,20,7,0,0:[142]
500 :
505 :   DIREC[164]RY
510 :
515 [153]"LOAD"
520 [153]"   (null)LEFT$RIGHT$ASC(null) OPENWILL PAUSE THE SCROLLING."
530 [129]TQ[178]1[164]500:[130]
535 [151]50193,DV:[158]50176
575 [153]"OPEN    (null)RESS (null)(null)ATNLENVALOPEN TO RETURN TO PROGRAM"
580 [161]A$:[139]A$[179][177]" "[167]580
585 [158]831,1:[151]198,0:[137]230
590 :
595 :BUZZER SOUND
600 :
605 [129]Z[178]54272[164]54296:[151]Z,0:[130]
610 W[178]54272:[151]W[170]6,240:[151]W,10:[151]W[170]1,40:[151]W[170]4,33
615 [129]J[178]1[164]10:[151]54296,15:[129]T[178]1[164]5:[130]:[151]54296,0:[129]T[178]1[164]5:[130]:[130]
620 [151]W[170]4,128
625 [142]
629 :
630 :BELL SOUND
631 :
635 [129]Z[178]54272[164]54296:[151]Z,0:[130]
640 W[178]54272:[151]W[170]1,135:[151]W[170]5,9:[151]W[170]6,9:[151]W[170]24,15:[151]W[170]4,17:[151]W[170]4,16
645 [129]T[178]1[164]800:[130]:[129]Z[178]54272[164]54296:[151]Z,0:[130]
650 [142]
655 :
660 [159]15,DV,15:[160]15
665 [139]ST[178]0[167][142]
670 [153]"LOAD(null)URN YOUR DISK DRIVE ON!!
675 PRINT"[208]RESS ANY KEY TO TRY AGAIN."
680 GETA$:IFA$=""THEN680
685 RETURN
690 OPEN15,DV,15:INPUT#15,ER,ER$:CLOSE15
695 IFER=0THENRETURN
700 GOSUB605:PRINT"[147][196]ISK DRIVE ERROR!!!!!"
705 PRINT"[212]HE ERROR MESSAGE IS:":PRINT:PRINTER,ER$
710 PRINT"[208]RESS ANY KEY TO TRY AGAIN."
715 GETA$:IFA$=""THEN715
720 OPEN15,DV,15,"I0":CLOSE15
725 RETURN
1145 PRINT"[147]":POKE214,4:PRINT:AU$="[204][207][193][196][211][212][193][210] [210][197][195][201][208][197][211]"
1150 PRINTSPC(20-LEN(AU$)/2)AU$
1155 AU$="[193] [208]ROGRAM FOR THE [199]OURMET [197]NTHUSIAST":PRINTSPC(20-LEN(AU$)/2)"[159]"AU$
1160 POKE53280,0:POKE53281,0
1165 POKE214,10:PRINT"[145]";
1170 FORI=1TO13:PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:NEXT
1175 PRINT""
1180 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
1185 POKE214,12:PRINT"[145]"TAB(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1190 FORI=1TO7:PRINTTAB(4)"[155]                                [151][223]":NEXT
1195 PRINTTAB(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][223]"
1200 PRINT"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
1201 POKE214,14:PRINT"[145][155]";
1202 FORI=1TO5:READAU$:GOSUB1203:NEXT:RETURN
1203 PRINTSPC(20-LEN(AU$)/2)""AU$:AU$="":RETURN
1206 DATA"[204][207][193][196][211][212][193][210][160][210][197][195][201][208][197][211]","BY [202]AMES [202]ONES & [198]ENDER [212]UCKER"
1207 DATA"[214]1 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #85","[211]UBSCRIPTIONS 1-800-831-2694"
1208 DATA"[195]OPYRIGHT ([195]) 1991 [211]OFTDISK"
1215 SYS828,2
1222 POKE214,11:PRINT:PRINTCV$
1224 PRINT"   [221][159]   [210]ETURN TO [204][207][193][196][211][212][193][210]?  (Y[159]/N[159])[158]  [221]"
1226 PRINTCW$
1227 GETA$:IFA$<>"Y"ANDA$<>"[217]"ANDA$<>"N"ANDA$<>"[206]"THEN1227
1228 IFA$="Y"ORA$="[217]"THEN1240
1229 SYS831,2:RETURN
1240 PRINT"[147]":POKE53272,21
1242 CLOSE15:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER
1245 CLOSE15:IFER<>63THENEND
1250 POKE646,PEEK(53281):PRINT"[147]LOAD"Q$"HELLO CONNECT"Q$",8"
1255 PRINT"RUN"
1260 POKE631,13:POKE632,13:POKE198,2:END
1300 IFDTHENSYS831,5:GOTO1397
1302 PRINT"[147]       [193] [194] [194] [210] [197] [214] [201] [193] [212] [201] [207] [206] [211]"
1305 PRINT"[212]HE FOLLOWING ABBREVIATIONS ARE"
1310 PRINT"USED IN THE RECIPES."
1315 PRINT"  AMT.[154] - AMOUNT"
1320 PRINT"  C.[154] - CUP"
1325 PRINT"  LB.[154] - POUND
1330 [153]"  LG.CONT - LARGE
1335 PRINT"  MED.[154] - MEDIUM
1340 [153]"  OLEO.CONT - MARGARINE"
1345 [153]"  OZ.CONT - OUNCE"
1350 [153]"  PKG(S).CONT - PACKAGE(S)"
1355 [153]"  QT(S).CONT - QUART(S)"
1360 [153]"  SM.CONT - SMALL
1375 PRINT"  TBSP.[154] - TABLESPOON
1380 [153]"  TSP.CONT - TEASPOON
1385 PRINT"  [159][208]RESS ANY KEY TO RETURN TO RECIPE"
1395 SYS828,5:D=1
1397 POKE198,0
1400 GETA$:IFA$=""THEN1400
1410 RETURN
10000 OPEN15,8,15,"S:LS RECIPES":CLOSE15:SAVE"LS RECIPES",8:END